\subsection{Исходный код}

\lstinputlisting[language=Pascal]{task2.pas}
